home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tptc16.zip / ACKER.PAS next >
Pascal/Delphi Source File  |  1993-01-04  |  366b  |  27 lines
  1.  
  2. program Acker;
  3.  
  4. (*
  5.    Ackerman function
  6. *)
  7.  
  8. Var
  9.   R : Integer;
  10.  
  11.   function A(M, N : Integer) : Integer;
  12.   begin
  13.     if M = 0 then
  14.       A := N+1
  15.     else
  16.       if N = 0 then
  17.         A := A(M-1, 1)
  18.       else
  19.         A := A(M-1, A(M, N-1));
  20.   end;
  21.  
  22. begin
  23.   WriteLn('Ackerman function...');
  24.   R := A(3, 6);
  25.   WriteLn('finished, R=',R);
  26. end.
  27.